home *** CD-ROM | disk | FTP | other *** search
/ Zoo Guides: Life in the Desert / Zoo Guides - Life in the Desert.iso / pc / lfnthdsr / chapters / shared.dir / 00365_Script_365 < prev    next >
Text File  |  1995-05-08  |  3KB  |  128 lines
  1. --
  2. on findfly
  3. global gowhere,index, family
  4. put 0 into index
  5. set the castnum of sprite 23 to f47
  6. global species
  7. put "reptiles:REPT:" into holder
  8. put line gowhere of field "indexkey" into place
  9. if word 5 of place = "" then
  10. put word 1 of place into filename
  11. put value (word 2 of place) into species
  12. put value (word 3 of place) into pageno
  13. put value (word 4 of place) into numofpages
  14. else
  15. put word 1 of place & " " & word 2 of place into filename
  16. put value (word 3 of place) into species
  17. put value (word 4 of place) into pageno
  18. put value (word 5 of place) into numofpages
  19. end if
  20.  
  21.  
  22.    set the castnum of sprite 22 to f28
  23.   updatestage
  24. if the movie <> filename then
  25. chapgo
  26. updatestage
  27.   puppetsprite 21, false
  28.     puppetsprite 19, false
  29.     puppetsprite 13, false
  30.     puppetsprite 5, false
  31.     set the castnum of sprite 22 to f28
  32.     updatestage
  33.   if the optiondown then
  34.     --
  35.     else
  36.     sound playfile 1, "MofA:Mammals of Africa:sounds:jungle music"
  37.   end if
  38.  
  39. go frame species of movie filename
  40. getgoing
  41. updatemovie
  42.  
  43. -- this is the code for changing the page number on the frame
  44.  
  45. if numofpages = 2 then
  46. --
  47. if pageno = 2 then
  48.     puppetsprite 11, true
  49.     puppetsprite 16, true
  50.     set the castnum of sprite 11 to the castnum of sprite 11+1
  51.     set the castnum of sprite 16 to f46
  52.      updatestage
  53. end if
  54.  
  55.  
  56. else
  57. if numofpages = 3 then
  58. --
  59. if pageno = 2 then
  60.     puppetsprite 11, true
  61.     puppetsprite 16, true
  62.     set the castnum of sprite 11 to the castnum of sprite 11+1
  63.     set the castnum of sprite 16 to f54
  64.     updatestage
  65. else
  66. if pageno = 3 then
  67.     puppetsprite 11, true
  68.     puppetsprite 16, true
  69.     set the castnum of sprite 11 to the castnum of sprite 11+2
  70.     set the castnum of sprite 16 to f56
  71.     updatestage
  72. end if
  73. end if
  74.  
  75.  
  76. end if
  77. end if
  78.  
  79.  
  80. else
  81.     puppetsprite 21, false
  82.     puppetsprite 19, false
  83.     puppetsprite 13, false
  84.     puppetsprite 5, false
  85.     set the castnum of sprite 22 to f28
  86.     updatestage
  87.  put field "dummy" into field "index1"
  88. go frame species
  89. if numofpages = 2 then
  90. --
  91. if pageno = 2 then
  92.     puppetsprite 11, true
  93.     puppetsprite 16, true
  94.     set the castnum of sprite 11 to the castnum of sprite 11+1
  95.     set the castnum of sprite 16 to f46
  96.      updatestage
  97. end if
  98.  
  99.  
  100. else
  101. if numofpages = 3 then
  102. --
  103. if pageno = 2 then
  104.     puppetsprite 11, true
  105.     puppetsprite 16, true
  106.     set the castnum of sprite 11 to the castnum of sprite 11+1
  107.     set the castnum of sprite 16 to f54
  108.     updatestage
  109. else
  110. if pageno = 3 then
  111.     puppetsprite 11, true
  112.     puppetsprite 16, true
  113.     set the castnum of sprite 11 to the castnum of sprite 11+2
  114.     set the castnum of sprite 16 to f56
  115.     updatestage
  116. end if
  117. end if
  118.  
  119.  
  120. end if
  121. end if
  122.  
  123.  
  124. end if
  125.  
  126.  
  127.  
  128. end if